home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / fredfish / 1094.lha / Programs / TSMorph_1 / UnpFish.script < prev    next >
Text File  |  1995-06-25  |  1KB  |  58 lines
  1. .bra {
  2. .ket }
  3.  
  4. lab lhanotfound
  5.  
  6. which >NIL: LHA
  7. if warn
  8.   path >NIL: $lhapath remove
  9.   unset >NIL: lhapath
  10.   echo "Damit dieses Skript korrekt funktioniert benötigen Sie den Archiver"
  11.   echo "LHA in ihrem Suchpfad. LHA konnte nicht gefunden werden. Geben Sie"
  12.   echo "jetzt den Pfad zu LHA an!"
  13.   echo "To work properly this skript needs the archiver LHA somwhere in your"
  14.   echo "searchpath. To continue, you need to enter the Directory where LHA"
  15.   echo "is located."
  16.  
  17.   which >NIL: requestfile
  18.   if warn
  19.     echo "Pfad zu/Path to LHA : " NOLINE
  20.     set >NIL: lhapath ?
  21.   else
  22.     set >NIL: lhapath `requestfile c: Title="Loaction of LHA" DRAWERSONLY`
  23.   endif
  24.  
  25.   path >NIL: $lhapath add
  26.   if warn
  27.     echo "Dieser Pfad existiert nicht!"
  28.     quit
  29.   endif
  30.   skip back lhanotfound
  31. else
  32.   set lhapath "NOTSET"
  33. endif
  34.  
  35. echo "Dieses Skript entpackt das gewünschte Programm in dieses Verzeichnis."
  36. echo "This Skript unpacks the desired Program into the current Drawer"
  37. echo "Möchten Sie fortfahren (y/N)?"
  38. ASK "Do you wish to continue (y/N)?"
  39.  
  40. if warn
  41.   echo "Start"
  42.   list #?.(lha|lzh) to t:unpfishtmp{$$} lformat="lha -IamxMnF x %n*Ndelete >NIL: %n"
  43.   if not fail
  44.     execute t:unpfishtmp{$$}
  45.     delete >NIL: t:unpfishtmp{$$}
  46.   endif
  47.   echo "Wählen Sie Fenster/aktualisieren aus dem Workbench Menü!"
  48.   echo "Choose Window/Update from the Workbench menu!"
  49. endif
  50.  
  51. echo "Fertig!"
  52. echo "Done."
  53.  
  54. if "NOTSET" not eq $lhapath
  55.   path $lhapath remove
  56.   unset lhapath
  57. endif
  58.